home *** CD-ROM | disk | FTP | other *** search
/ Paradise in the Skirt / Paradise in the Skirt.iso / dept12.dir / 00069_Script_Man < prev    next >
Text File  |  1994-11-11  |  6KB  |  188 lines
  1. global gBlockList,gGirlList,gEntranceList,totalHpoint,moveV,moveH,RmoveH,RmoveV,stepNo,manH,manV,raderH,raderV,switchCast,gMovieList,movieNo,movieName
  2.  
  3. on moveMan direction
  4.   put stepNo + 1 into stepNo
  5.   if direction = 8 then
  6.     put 0 into moveH
  7.     put -9 into moveV
  8.     put 0 into RmoveH
  9.     put -72 into RmoveV
  10.     put 19 into startCast
  11.     put 22 into endCast
  12.   else if direction = 2 then
  13.     put 0 into moveH
  14.     put 9 into moveV
  15.     put 0 into RmoveH
  16.     put 72 into RmoveV
  17.     put 15 into startCast
  18.     put 18 into endCast
  19.   else if direction = 4 then
  20.     put -12 into moveH
  21.     put 0 into moveV
  22.     put -48 into RmoveH
  23.     put 0 into RmoveV
  24.     put 23 into startCast
  25.     put 26 into endCast
  26.   else if direction = 6 then
  27.     put 12 into moveH
  28.     put 0 into moveV
  29.     put 48 into RmoveH
  30.     put 0 into RmoveV
  31.     put 27 into startCast
  32.     put 30 into endCast
  33.   end if
  34.   IF NOT(THE CASTNUM OF SPRITE 13 = startCast) THEN
  35.     SET THE CASTNUM OF SPRITE 13 TO startCast
  36.     UPDATESTAGE
  37.     mMove girl1
  38.     mMove girl2
  39.     EXIT
  40.   END IF
  41.   if direction = 2 then
  42.     repeat with spno in gEntranceList
  43.       if sprite 14 intersects spno then
  44.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 5
  45.         UPDATESTAGE
  46.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 5
  47.         UPDATESTAGE
  48.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 5
  49.         UPDATESTAGE
  50.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 10
  51.         UPDATESTAGE
  52.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 15
  53.         UPDATESTAGE
  54.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  55.         UPDATESTAGE
  56.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  57.         UPDATESTAGE
  58.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  59.         UPDATESTAGE
  60.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  61.         UPDATESTAGE
  62.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  63.         UPDATESTAGE
  64.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  65.         UPDATESTAGE
  66.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  67.         UPDATESTAGE
  68.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  69.         UPDATESTAGE
  70.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 20
  71.         UPDATESTAGE
  72.         put 200 into manH
  73.         put 226 into manV
  74.         put 192 into raderH
  75.         put 217 into raderV
  76.         put 1 into switchCast
  77.         play done
  78.         exit
  79.       end if
  80.     end repeat
  81.   end if
  82.   set the locH of sprite 14 = the locH of sprite 14 + RmoveH
  83.   set the locV of sprite 14 = the locV of sprite 14 + RmoveV
  84.   updateStage
  85.   if stepNo >= 5 then
  86.     repeat with spno in gGirlList
  87.       if sprite 14 intersects spno then
  88.         if random(20) = 2 then
  89.           go to marker(1)
  90.           
  91.           nanpa
  92.           
  93.           set the locH of sprite 14 = the locH of sprite 14 - RmoveH
  94.           set the locV of sprite 14 = the locV of sprite 14 - RmoveV
  95.           exit
  96.         end if
  97.         put getaProp(gMovieList,spno) into movieNo
  98.         put item 1 of line movieNo of the text of cast "CommentList" into Hpoint
  99.         SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  100.         set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  101.         puppetSprite 48, False
  102.         updateStage
  103.         sound stop 1
  104.         put "D" into movieName
  105.         playQTMovie
  106.         put value(Hpoint) into thisHpoint
  107.         
  108.         if thisHpoint > 0 then
  109.           set the text of cast "Comment" to "H.Point  +"&Hpoint
  110.         else
  111.           put abs(thisHpoint) into Hpoint
  112.           set the text of cast "Comment" to "H.Point  -"&Hpoint
  113.         end if
  114.         put totalHpoint + thisHpoint into totalHpoint
  115.         put totalHpoint into field "Hpoint"
  116.         put 0 into stepNo
  117.         EXIT
  118.       END IF
  119.     END REPEAT
  120.   end if
  121.   repeat with spno in gBlockList
  122.     if sprite 14 intersects spno then
  123.       SET THE LOCV OF SPRITE 14 TO THE LOCV OF SPRITE 14 - RmoveV
  124.       set the locH of sprite 14 to the locH of sprite 14 - RmoveH
  125.       UPDATESTAGE
  126.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  127.       UPDATESTAGE
  128.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  129.       UPDATESTAGE
  130.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  131.       UPDATESTAGE
  132.       SET THE CASTNUM OF SPRITE 13 TO startCast
  133.       UPDATESTAGE
  134.       mMove girl1
  135.       mMove girl2
  136.       EXIT
  137.     end if
  138.   end repeat
  139.   IF NOT(SPRITE 14 WITHIN 3) THEN
  140.     SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  141.     set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  142.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  143.     UPDATESTAGE
  144.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  145.     UPDATESTAGE
  146.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  147.     UPDATESTAGE
  148.     SET THE CASTNUM OF SPRITE 13 TO startCast
  149.     UPDATESTAGE
  150.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  151.     UPDATESTAGE
  152.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  153.     UPDATESTAGE
  154.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  155.     UPDATESTAGE
  156.     SET THE CASTNUM OF SPRITE 13 TO startCast
  157.     UPDATESTAGE
  158.     mMove girl1
  159.     mMove girl2
  160.   ELSE
  161.     if direction = 8 or direction = 2 then
  162.       put 2 into step
  163.     else
  164.       put 1 into step
  165.     end if
  166.     repeat with i = 1 to step
  167.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  168.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  169.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  170.       UPDATESTAGE
  171.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  172.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  173.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  174.       UPDATESTAGE
  175.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  176.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  177.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  178.       UPDATESTAGE
  179.       SET THE CASTNUM OF SPRITE 13 TO startCast
  180.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  181.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  182.       UPDATESTAGE
  183.     end repeat
  184.     mMove girl1
  185.     mMove girl2
  186.   END IF
  187. end
  188.